11 POKE53280,2:POKE53281,.:POKE650,128
12 PRINTCHR$(142)"[147][153]    WELCOME TO THE PRINT SHOP VIEWER"
20 POKE56,120:CLR:POKE2,1:TP$=""
25 SYS57812"TEXT.O",8,0:POKE780,0:POKE781,71:POKE782,198:SYS65493
30 SYS57812"UNPACKER",8,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
35 SYS57812"PS.COMBO2.O",8,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
39 :
40 GOSUB1500
50 GOSUB1000
55 GOSUB2000
60 GOSUB2500
65 RI=CS+(CP-1)*28:TF=.:FL=.
70 IFA$="[133]"THENGOSUB3000:SYS51459:GOTO60
75 IFA$="[134]"THENGOSUB5000:SYS51459:GOTO60
80 IFA$="[135]"THENCP=CP+1:IFCP>NPTHENCP=1
81 IFA$="[135]"THENGOSUB2040:IFNP>1THENCS=1
82 IFA$="[135]"THEN60
85 IFA$="[136]"THENGOSUB60000:GOSUB2100:GOTO60
90 SYS57812IM$(RI),8,0:POKE780,0:POKE781,0:POKE782,88:SYS65493:DI=RI
100 GOSUB4000:GOTO60
999 :
1000 OPEN3,8,3,"PS NAMES":CO=.:NP=1
1005 INPUT#3,NI
1010 DIMIM$(NI+1),ME$(NI+1)
1020 FORA=1TONI
1030 INPUT#3,IM$(A):ME$(A)=IM$(A):CO=CO+1
1050 NI(NP)=NI(NP)+1:IFCO>28THENCO=.:NP=NP+1
1060 B=LEN(ME$(A)):IFB<>16THENME$(A)=ME$(A)+LEFT$(SP$,16-B)
1070 NEXT:CLOSE3:RETURN
1080 :
1500 TP$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1510 SI$="[221]                                      [221]"
1520 DI$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1530 BO$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1540 BT$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
1550 SP$="                "
1560 CS=1
1570 JO=56320
1580 CP=1
1990 RETURN
1999 :
2000 PRINT"[147][153][146]"TP$SI$SI$DI$;
2010 FORA=1TO14:PRINTSI$;:NEXT
2020 PRINTDI$SI$SI$SI$SI$SI$BT$;
2030 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
2040 PRINT"[146]          [158]PRINT SHOP VIEWER"
2050 PRINT"[150]BY ALL THE FRIENDLY FOLKS AT LOADSTAR "
2060 PRINT"";
2070 MI=INT(NI(CP)/2)
2080 IF(NP>1)AND(CP<>NP)THENMI=14
2085 SI=(CP-1)*28
2090 FORA=SI+1TOSI+MI:PRINTTAB(1)"][154]"ME$(A)"[  ][154]"ME$(A+MI)"[":NEXT
2093 IFSI+14=SI+MITHEN2100
2096 FORA=SI+13TOSI+MISTEP-1:PRINT"                                      ":NEXT
2100 PRINT"[154]NUMBER OF PAGES:"NP;
2110 PRINTTAB(23)"[154]CURRENT PAGE:"CP
2120 PRINT"F1 [154]- AUTO MODE"
2130 PRINT"F3 [154]- QUICK LOOK       [158]CRSR KEYS MOVE "
2140 PRINT"F5 [154]- NEXT PAGE          [158]HIGHLIGHT"
2150 PRINT"F7 [154]- QUIT           [158]RETURN SELECTS IT."
2160 RETURN
2500 B=CS:IFB>MITHENB=B-MI
2510 PRINT"";:FORA=1TOB:PRINT:NEXT
2520 PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"->";
2530 PRINT""ME$(SI+CS);:POKE198,.
2535 IFCS<MI+1THENPRINT"[146]<-";
2540 GETA$:GOSUB2700:IFA$=""THEN2540
2545 IF(A$=CHR$(13))OR(A$="[133]")OR(A$="[134]")OR(A$="[135]")OR(A$="[136]")THENRETURN
2550 B=CS:IFB>MITHENB=B-MI
2560 PRINT"";:FORA=1TOB:PRINT:NEXT
2570 PRINTTAB(2);:IFCS>MITHENPRINTTAB(19)"  ";
2580 PRINT"[154]"ME$(SI+CS);
2585 IFCS<MI+1THENPRINT"  ";
2590 IFA$=""THENCS=CS+1:IFCS>NI(CP)THENCS=NI(CP)
2600 IFA$="[145]"THENCS=CS-1:IFCS<1THENCS=1
2610 IFA$=""THENCS=CS+MI:IFCS>NI(CP)THENCS=CS-MI*2
2620 IFA$="[157]"THENCS=CS-MI:IFCS<1THENCS=CS+MI*2
2640 GOTO2500
2700 IF(PEEK(JO)AND16)=.THENA$=CHR$(13):RETURN
2710 A=(PEEK(JO)AND15):IFA=15THENRETURN
2720 IFA=14THENA$="[145]"
2730 IFA=07THENA$=""
2740 IFA=13THENA$=""
2750 IFA=11THENA$="[157]"
2760 RETURN
3000 FORDI=RITONI:TF=1
3010 SYS57812IM$(DI),8,0:POKE780,0:POKE781,0:POKE782,88:SYS65493
3012 GOSUB4000
3020 POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
3030 FL=1:NEXT:IFRI=1THENRETURN
3040 FORDI=1TORI-1:TF=1
3050 SYS57812IM$(DI),8,0:POKE780,0:POKE781,0:POKE782,88:SYS65493
3060 GOSUB4000
3070 POKE249,224:POKE250,204:SYS50765:IFA$="Q"ORA$="[209]"THENRETURN
3080 FL=1:NEXT:RETURN
4000 IFFL=.THENPOKE249,224:POKE250,204:SYS51459:SYS50765
4007 N$=IM$(DI):POKE53270,200:SYS50759,N$,(240-LEN(N$)*8/2),72
4008 N$="CRAFTED BY":SYS50759,N$,200,88
4009 N$="DOUG WILCOX":SYS50759,N$,(250-LEN(N$)*8/2),104
4012 GOTO4050
4050 POKE53270,200
4052 POKE33057,8:POKE33058,212:SYS32776
4055 POKE33057,8:POKE33058,1:SYS32768
4060 SYS50759,"PRESS A KEY",202,120:IFTF=1THENSYS50759,"[Q TO QUIT]",202,128
4062 POKE198,.
4065 GETA$:GOSUB2700:IFA$=""THEN4065
4070 IFTF=.THENSYS51459
4080 RETURN
5000 PX=.:PY=.:TF=1:POKE249,224:POKE250,204:SYS51459:SYS50765:POKE53270,200
5010 GOSUB7000
5050 FORX=1TONI
5055 SYS57812IM$(X),8,0:POKE780,0:POKE781,0:POKE782,88:SYS65493
5060 POKE53270,200:POKE33057,PY:POKE33058,PX:SYS32776
5070 PX=PX+45:IFPX>224THENPX=.:PY=PY+46
5080 GETA$:IFA$="Q"ORA$="[209]"THENRETURN
5090 FL=.:IFX/20=INT(X/20)THENGOSUB6000:IFFL=1THENRETURN
5100 NEXT:FL=1:SYSTE,"[PRESS A KEY]",118,188
5110 POKE198,.:WAIT198,1:RETURN
5120 :
6000 SYSTE,"[PRESS A KEY]",118,188
6010 POKE198,.:WAIT198,1:GETA$:POKE198,.:IFA$="Q"ORA$="[209]"THENFL=1:RETURN
6020 POKE249,224:POKE250,204:SYS50765
6030 GOSUB7000:PX=.:PY=.:RETURN
7000 TE=50759:SYSTE,"PRINT SHOP",244,40:SYSTE,"IS A",268,48
7010 SYSTE,"TRADEMARK",244,56
7020 SYSTE,"OF",276,64:SYSTE,"BRODERBUND",244,72
7030 SYSTE,"SOFTWARE",252,80:SYSTE,"Q TO QUIT",244,110
7040 RETURN
10000 OPEN15,8,15,"S0:PS BORDER VIEWER":CLOSE15:SAVE"PS BORDER VIEWER",8:END
60000 PRINT"[146]";
60010 FORA=1TO2:PRINT"                                      ":NEXT
60020 PRINT"[154] ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])":POKE198,.
60030 FORA=1TO2:PRINT"                                      ":NEXT
60040 A=PEEK(203):IFA<>25ANDA<>39THEN60040
60050 IFA=39THENRETURN
60060 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60070 IFER<>63THENPRINT"";:POKE198,.:END
60080 PRINT"[147][144]LOAD"CHR$(34)"HELLO*"CHR$(34)",8"
60090 PRINT"RUN"
60095 POKE631,13:POKE632,13:POKE198,2:END